CatchEvent OnLapperStart()
OnLapperStart_Test();
EndCatchEvent
Sub OnLapperStart_Test()
GlobalVar $number_array;
GlobalVar $new_number_array;
$number_array[0]=1;
$number_array[1]=2;
$number_array[2]=3;
$number_array[3]=4;
$number_array[4]=5;
$number_array[5]=6;
$number_array[6]=7;
$number_array[7]=8;
EndSub
CatchEvent OnMSO( $userName, $text ) # Player event
$idxOfFirtsSpace = indexOf( $text, " ");
IF( $idxOfFirtsSpace == -1 ) THEN
$command = $text;
$argv = "";
ELSE
$command = subStr( $text,0,$idxOfFirtsSpace );
$argv = trim( subStr( $text,$idxOfFirtsSpace ) );
ENDIF
SWITCH( $command )
CASE "!testarr":
testarr ( $KeyFlags , $argv );
BREAK;
ENDSWITCH
EndCatchEvent
Sub testarr( $KeyFlags,$id )
dumpVar ($number_array);
$counter=0;
FOREACH( $val IN $number_array)
writeline ( "DEBUG ARR: " . $val["value"] );
IF ($val["value" ] != 3)
THEN
$new_number_array[$counter] = $val["value" ];
ENDIF
$counter=$counter+1;
ENDFOREACH
dumpVar ($new_number_array);
EndSub
Event OnNewPlayerJoin( $userName )
$userName = GetCurrentPlayerVar( "UserName" );
UserGroupFromFile( "IPAddress", "./Blacklist.txt" );
IF ( UserInGroup( "IPAddress",$userName ) == 1 )
THEN
cmdLFS("/kick " . GetCurrentPlayerVar("userName") );
ENDIF
EndEvent
Event OnNewPlayerJoin( $userName )
$IPAddress = GetCurrentPlayerVar( "IPAdress" );
UserGroupFromFile( "IPAddress", "./Blacklist.txt" );
IF ( UserInGroup( "IPAdress",$IPAddress ) == 1 )
THEN
cmdLFS("/kick " . GetCurrentPlayerVar("userName") );
ENDIF
EndEvent
Event OnNewPlayerJoin( $userName )
UserInGroup( "IPAdress", "./Blacklist.txt" );
IF (UserInGroup( GetCurrentPlayerVar("IPAdress") == 1)
THEN
cmdLFS("/kick " . GetCurrentPlayerVar("userName") );
ENDIF
EndEvent
RegisterNodeAction( TESTID, getLapperVar( "ShortTrackName" ) , getCurrentPlayerVar("CurrNode") , test,"" );
Sub test($UserName,$ZoneID)
privmsg("ID=".$ZoneID); #output is TESTID
EndSub
CatchEvent OnNewPlayerJoin( $userName ) # Player event
OnNewPlayerJoin_IP_Saving();
EndCatchEvent
Sub OnNewPlayerJoin_IP_Saving()
$userName = GetCurrentPlayerVar( "UserName" );
PrivMsg ("^7DEBUG 1: " . GetPlayerVar($userName,"IPAdress") );
PrivMsg ("^7DEBUG 2: " . GetCurrentPlayerVar( "IPAdress" ) );
SetStoredValue( $userName . "IPAdress", GetPlayerVar( $userName,"IPAdress" ) );
#SetStoredValue( $userName . "IPAdress", GetCurrentPlayerVar( "IPAdress" ) );
EndSub
Event OnConnect( $userName )
SetStoredValue( $userName . "IPAdress", GetPlayerVar($userName,"IPAdress") );
EndEvent